#!/usr/bin/perl -w

 $searchfor = "Schubert";
 @composers = ("Mozart", "Tchaikovsky", "Beethoven", "Dvorak", "Bach",
 "Handel", "Haydn", "Brahms", "Schubert", "Chopin");
 $prompt = "$searchfor is not found!\n";
 foreach $name (@composers) {
 if ($name eq $searchfor) {
 $prompt = "$searchfor is found!\n";
 last;
 }
 }
 print $prompt;